Apple Reference & Presen…tion Library 2 (Reseller)/Apple R&P Lib Reseller v2.0.iso/3-Demos/Tutorials/Macintosh SE⁄30 Training/Apple Macintosh SE⁄30/Apple Macintosh SE_30/background_44757.txt

Text File | 1989-08-22 | 4KB | 172 lines

-- background: 44757 from stack: in
-- bmap block id: 44830
-- flags: 0000
-- background id: 0
-- name: technologyBack
----- HyperTalk script -----
on closeBackground
  global mapLoc
  put 19 into mapLoc
end closeBackground
--—————————————————————————————————————————————————————————————————————
on technoTwentyThree -- animation for architecture review
  wait 30
  visual dissolve
  go card "technology23a"
  runningPause
  visual dissolve
  go card "technology23b"
  runningPause
  visual dissolve slowly
  go card "technology23c"
end technoTwentyThree
--—————————————————————————————————————————————————————————————————————


-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=428 top=317 right=342 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 18611 / 18611
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: prev
----- HyperTalk script -----
on mouseUp
  if "technology23" is in the name of this card then
    visual scroll right
    go card "technology22"
    exit mouseUp
  end if

  if "technology24" is in the name of this card then
    visual scroll right
    go card "technology23"
    exit mouseUp
  end if

  visual scroll right
  go prev
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=455 top=317 right=342 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 18612 / 18612
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: next
----- HyperTalk script -----
on mouseUp
  if "technology23" is in the name of this card then
    visual scroll left
    go card "technology24"
    exit mouseUp
  end if

  visual scroll left
  go next
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=482 top=317 right=342 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 18613 / 18613
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: return
----- HyperTalk script -----
on mouseUp
  pop card into lastPush
  if the short name of this stack is not in lastPush then
    visual dissolve
    go card "Map"
  else
    visual dissolve
    go lastPush
  end if
end mouseUp



-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=128 top=23 right=45 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 18
-- style flags: 0
-- line height: 20
-- part name: cardTitle


-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=128 top=70 right=315 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cardText


-- part 9 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=128 top=0 right=22 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 18
-- style flags: 10240
-- line height: 19
-- part name: Title


-- part 10 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=1 top=1 right=16 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Menu
----- HyperTalk script -----
on mousedown
  global checkedItem, clickTime
  put 8 into checkedItem
  mainMenu
  put the ticks into clickTime
end mousedown